﻿Public Class Inventory_InventoryItemAlreadyExists_Exception
    Inherits System.Exception
    Private mInventoryItemID As String
    Property _InventoryItemID As String
        Get
            Return mInventoryItemID
        End Get
        Set(ByVal value As String)
            mInventoryItemID = value
        End Set
    End Property
    Public Sub New(ByVal pInventoryItemID As String)
        MyBase.New()
        _InventoryItemID = pInventoryItemID
    End Sub
    Public Overrides Function ToString() As String
        Dim tmpStr As String

        tmpStr = _
            "( INVENTORYITEM INVENTORY_ITEM_ALREDADY_EXISTS EXCEPTION: " _
            & "ID = " & _InventoryItemID _
            & " )"

        Return tmpStr

    End Function
End Class
